﻿Module MainModule

    Public Sub Main()

        ' TODO コマンドライン引数処理に必要な初期化

        ' コマンドライン引数
        Dim args = Environment.GetCommandLineArgs()
        If args.Length > 1 AndAlso args(1).StartsWith("/jumplist:") Then

            Dim param = args(1).Substring(args(1).IndexOf(":") + 1)
            Select Case param
                Case "mypage"
                    Manager.BrowserManager.OpenUri(New Uri("http://live.nicovideo.jp/my"))
                    Exit Sub

                Case Else
                    Exit Sub
            End Select

        End If

        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
        Application.Run(New MainForm)

    End Sub
End Module
